home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
earcd
/
comm
/
tcp
/
amircask.lha
/
askhost.amirx
< prev
Wrap
Text File
|
1997-02-02
|
2KB
|
83 lines
/* Askhost script for use with AmIRC 1.x */ Version='1.02'/*
// Written by Deryk Robosson 11.18.96
//
// newlook@ameritech.net newlook on #amiga IRC (EfNet)
//
// 3.1.97 Corrected problem with SAY. Reported by SimD
// 15.1.97 Supports showing a user the output
// Supports passing user nick for input
*/
bold=d2c(2)
tempfile="t:Askhost.temp"
trace results
options results
parse arg param
param=trim(upper(param))
if param="" then do
Call Version()
Exit
end
if param='VER' then do
Call Version()
Exit
end
if param='HELP' then do
Call Help()
Exit
end
if param~="" then do
parse var param where" "command
parse var where domain"."whatever
if whatever="" then do
'USERHOST 'where
if result~="RESULT" then parse var result blah"@"host
end
else host=where
if command~="" then do
parse var command command" "user
end
else command=""
end
ADDRESS COMMAND 'amitcp:bin/Askhost 'host' >T:Askhost.temp'
if open(file, tempfile,'R') then do
do until eof(file)
line=ReadLn(file)
select
when line=' ' then nop
otherwise
select
when command="SAY" then 'SAY 'line
when command="SHOW" then "RAW NOTICE" user ":"line
otherwise
if command="" then 'echo 'line
end
end
end
close(file)
ADDRESS COMMAND 'delete >NIL: ' tempfile 'quiet force'
end
Exit
Version:
'echo 'BOLD"Askhost.AMIRX"BOLD" Version "BOLD||VERSION||BOLD
'echo '"Read the top of Askhost.AMIRX script for history."
'echo 'BOLD"©1996"BOLD" Deryk Robososn "BOLD"(newlook)"BOLD" - [newlook@ameritech.net]"
'echo '"Type /<alias> help for command information"
return
Help:
'echo 'BOLD"Askhost.AMIRC"BOLD" Help"
'echo 'BOLD"SAY - "BOLD"echos output to window"
'echo 'BOLD"VER - "BOLD"displays script version"
'echo 'BOLD"SHOW - "BOLD"displays outout to user"
'echo 'BOLD"HELP - "BOLD"displays this file"
return